home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db3plsar.arc / CLOSEOUT.PRG < prev    next >
Encoding:
Text File  |  1986-08-04  |  965 b   |  36 lines
  1. ********************(CLOSEOUT.PRG)
  2. CLEA
  3. @ 12,1 SAY 'This will delete all of the paid invoices from the ì
  4. active invoice file,'
  5. @ 13,1 SAY 'and copy them to a .DBF file named PAID.DBF'
  6. @ 15,1 SAY 'It will also remove completely any invoices or ì
  7. customers you have'
  8. @ 16,1 SAY 'marked for deletion by using CTRL U to delete while ì
  9. in the EDIT INVOICE'
  10. @ 17,1 SAY 'option or EDIT CUSTOMERS option.'
  11. @ 20,22 SAY 'Is this what you want to do? '
  12. ?
  13. STORE ' ' TO OPTION
  14. WAIT '                                   ? ' TO OPTION
  15. IF OPTION<>'Y'
  16.    CLEA
  17.    @ 15,20 SAY 'Press F9 to return to main menu....'
  18.    RETURN
  19. ENDIF
  20. CLEA
  21. SET TALK ON
  22. ? 'Appending records to PAID.DBF file...'
  23. USE PAID
  24. APPE FROM INV FOR PAID
  25. ? 'Looking for invoices marked for deletion...'
  26. USE INV INDE ACCTS
  27. DELE FOR PAID
  28. ? 'Out they go...'
  29. PACK
  30. USE CUST INDE ACCT
  31. ? 'Removing deleted customers...'
  32. PACK
  33. SET TALK OFF
  34. CLEA
  35. @ 15,20 SAY 'Press F9 to return to main menu...'
  36.